-- card: 17060 from stack: in -- bmap block id: 27297 -- flags: 0000 -- background id: 2097 -- name: Summary ----- HyperTalk script ----- on openCard global Enum, Inum, Snum, Nnum, Tnum, Fnum, Pnum, Jnum global StudType, StudText, StudName put Enum into card field ESum put Inum into card field ISum put Snum into card field SSum put Nnum into card field NSum put Tnum into card field TSum put Fnum into card field FSum put Pnum into card field PSum put Jnum into card field JSum put StudName into card field 14 put "----------------------------------------" into card Field EIScale put 20 into EITemp subtract card field ESum from EITemp add card field ISum to EITemp if EITemp < 0 then put zero into EITemp put "•" into char EITemp of card field EIScale if EITemp < 20 then put "E" into card field Type else put "I" into card field Type put "----------------------------------------" into card Field SNScale put 20 into SNTemp subtract card field SSum from SNTemp add card field NSum to SNTemp if SNTemp < 0 then put zero into SNTemp put "•" into char SNTemp of card field SNScale if SNTemp < 20 then put card field Type & "S" into card field Type else put card field Type & "N" into card field Type put "----------------------------------------" into card Field TFScale put 20 into TFTemp subtract card field TSum from TFTemp add card field FSum to TFTemp if TFTemp < 0 then put zero into TFTemp put "•" into char TFTemp of card field TFScale if TFTemp < 20 then put card field Type & "T" into card field Type else put card field Type & "F" into card field Type put "----------------------------------------" into card Field JPScale put 20 into JPTemp subtract card field JSum from JPTemp add card field PSum to JPTemp if JPTemp < 0 then put zero into JPTemp put "•" into char JPTemp of card field JPScale if JPTemp < 20 then put card field Type & "J" into card field Type else put card field Type & "P" into card field Type end openCard -- part 1 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=111 top=103 right=121 bottom=140 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Esum -- part 2 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=349 top=104 right=122 bottom=378 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Isum -- part 3 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=349 top=138 right=156 bottom=378 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Nsum -- part 4 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=111 top=137 right=155 bottom=140 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Ssum -- part 5 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=111 top=173 right=191 bottom=140 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Tsum -- part 6 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=349 top=173 right=191 bottom=378 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Fsum -- part 7 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=349 top=209 right=227 bottom=378 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Psum -- part 8 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=111 top=209 right=227 bottom=140 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 65535 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Jsum -- part 10 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=144 top=106 right=122 bottom=347 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: EIScale -- part 11 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=144 top=140 right=156 bottom=347 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: SNScale -- part 12 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=144 top=176 right=192 bottom=347 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: TFScale -- part 13 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=143 top=212 right=228 bottom=346 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: JPScale -- part 14 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=392 top=249 right=273 bottom=443 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 20 -- text size: 18 -- style flags: 0 -- line height: 24 -- part name: Type -- part 15 (button) -- low flags: 00 -- high flags: 8000 -- rect: left=200 top=282 right=338 bottom=263 -- title width / last selected line: 0 -- icon id / first selected line: 1 / 1 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Explain Type ----- HyperTalk script ----- on mouseUp push card go to card card field Type end mouseUp -- part 16 (button) -- low flags: 00 -- high flags: 8000 -- rect: left=125 top=281 right=338 bottom=186 -- title width / last selected line: 0 -- icon id / first selected line: 20098 / 20098 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Quit ----- HyperTalk script ----- on mouseUp go to stack "Home" end mouseUp -- part 18 (button) -- low flags: 00 -- high flags: 8000 -- rect: left=272 top=283 right=340 bottom=335 -- title width / last selected line: 0 -- icon id / first selected line: 1007 / 1007 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Print ----- HyperTalk script ----- on mouseUp open printing with dialog print this card push card go to card card field Type print this card pop card close printing end mouseUp -- part 19 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=24 top=248 right=274 bottom=226 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 20 -- text size: 18 -- style flags: 0 -- line height: 24 -- part name: -- part contents for card part 10 ----- text ----- ---------------------------•------------ -- part contents for card part 11 ----- text ----- ----------------------------•----------- -- part contents for card part 12 ----- text ----- ------------•--------------------------- -- part contents for card part 13 ----- text ----- -------------------•-------------------- -- part contents for card part 14 ----- text ----- INTP -- part contents for card part 9 ----- text ----- 24 -- part contents for card part 17 ----- text ----- Click here to see an explanation of this type. -- part contents for card part 1 ----- text ----- 4 -- part contents for card part 2 ----- text ----- 12 -- part contents for card part 4 ----- text ----- 3 -- part contents for card part 3 ----- text ----- 12 -- part contents for card part 5 ----- text ----- 13 -- part contents for card part 6 ----- text ----- 6 -- part contents for card part 7 ----- text ----- 8 -- part contents for card part 8 ----- text ----- 8 -- part contents for card part 19 ----- text ----- Bill Garrett